home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / dtl / ad_pack.cod < prev    next >
Encoding:
Text File  |  1993-03-09  |  369 b   |  20 lines
  1. //
  2. // Module Name: AD_PACK.COD - Menu_Act = 12
  3. // Description: Delete and pack
  4. // Syntax     : PACK
  5. //
  6. lc_say='Looking for DELETED Records...'
  7. DO info_box WITH lc_say
  8. //
  9. LOCATE FOR DELETED()
  10. IF .NOT. EOF()
  11.    lc_say='Purging DELETED Records...'
  12.    DO info_box WITH lc_say
  13.    SET TALK ON
  14.    PACK 
  15.    SET TALK OFF
  16.    GO TOP
  17. ENDIF
  18. //
  19. // EOP AD_PACK.COD
  20.